home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #14 / Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO / prog_bas / easynet.zip / DEMO.ZIP / LEGEND.FRM < prev    next >
Text File  |  1995-12-26  |  18KB  |  521 lines
  1. VERSION 4.00
  2. Begin VB.Form frmLegend 
  3.    Appearance      =   0  'Flat
  4.    BackColor       =   &H00C0C0C0&
  5.    BorderStyle     =   3  'Fixed Dialog
  6.    Caption         =   "Node parameters"
  7.    ClientHeight    =   4680
  8.    ClientLeft      =   1500
  9.    ClientTop       =   3060
  10.    ClientWidth     =   6225
  11.    BeginProperty Font 
  12.       name            =   "MS Sans Serif"
  13.       charset         =   1
  14.       weight          =   700
  15.       size            =   8.25
  16.       underline       =   0   'False
  17.       italic          =   0   'False
  18.       strikethrough   =   0   'False
  19.    EndProperty
  20.    ForeColor       =   &H80000008&
  21.    Height          =   5085
  22.    Left            =   1440
  23.    LinkTopic       =   "Form5"
  24.    ScaleHeight     =   4680
  25.    ScaleWidth      =   6225
  26.    Top             =   2715
  27.    Width           =   6345
  28.    Begin VB.Frame Frame3 
  29.       Appearance      =   0  'Flat
  30.       BackColor       =   &H00C0C0C0&
  31.       Caption         =   "Text alignment"
  32.       BeginProperty Font 
  33.          name            =   "MS Sans Serif"
  34.          charset         =   1
  35.          weight          =   400
  36.          size            =   9.75
  37.          underline       =   -1  'True
  38.          italic          =   0   'False
  39.          strikethrough   =   0   'False
  40.       EndProperty
  41.       ForeColor       =   &H80000008&
  42.       Height          =   3285
  43.       Left            =   3540
  44.       TabIndex        =   14
  45.       Top             =   1200
  46.       Width           =   2475
  47.       Begin VB.OptionButton Option3 
  48.          Appearance      =   0  'Flat
  49.          BackColor       =   &H00C0C0C0&
  50.          Caption         =   "&8 - Center - BOTTOM"
  51.          BeginProperty Font 
  52.             name            =   "MS Sans Serif"
  53.             charset         =   1
  54.             weight          =   400
  55.             size            =   8.25
  56.             underline       =   0   'False
  57.             italic          =   0   'False
  58.             strikethrough   =   0   'False
  59.          EndProperty
  60.          ForeColor       =   &H80000008&
  61.          Height          =   225
  62.          Index           =   8
  63.          Left            =   240
  64.          TabIndex        =   22
  65.          TabStop         =   0   'False
  66.          Top             =   2850
  67.          Width           =   1800
  68.       End
  69.       Begin VB.OptionButton Option3 
  70.          Appearance      =   0  'Flat
  71.          BackColor       =   &H00C0C0C0&
  72.          Caption         =   "&7 - Center - MIDDLE"
  73.          BeginProperty Font 
  74.             name            =   "MS Sans Serif"
  75.             charset         =   1
  76.             weight          =   400
  77.             size            =   8.25
  78.             underline       =   0   'False
  79.             italic          =   0   'False
  80.             strikethrough   =   0   'False
  81.          EndProperty
  82.          ForeColor       =   &H80000008&
  83.          Height          =   225
  84.          Index           =   7
  85.          Left            =   240
  86.          TabIndex        =   21
  87.          TabStop         =   0   'False
  88.          Top             =   2550
  89.          Width           =   1800
  90.       End
  91.       Begin VB.OptionButton Option3 
  92.          Appearance      =   0  'Flat
  93.          BackColor       =   &H00C0C0C0&
  94.          Caption         =   "&6 - Center - TOP"
  95.          BeginProperty Font 
  96.             name            =   "MS Sans Serif"
  97.             charset         =   1
  98.             weight          =   400
  99.             size            =   8.25
  100.             underline       =   0   'False
  101.             italic          =   0   'False
  102.             strikethrough   =   0   'False
  103.          EndProperty
  104.          ForeColor       =   &H80000008&
  105.          Height          =   225
  106.          Index           =   6
  107.          Left            =   240
  108.          TabIndex        =   20
  109.          TabStop         =   0   'False
  110.          Top             =   2250
  111.          Width           =   1800
  112.       End
  113.       Begin VB.OptionButton Option3 
  114.          Appearance      =   0  'Flat
  115.          BackColor       =   &H00C0C0C0&
  116.          Caption         =   "&5 - Right - BOTTOM"
  117.          BeginProperty Font 
  118.             name            =   "MS Sans Serif"
  119.             charset         =   1
  120.             weight          =   400
  121.             size            =   8.25
  122.             underline       =   0   'False
  123.             italic          =   0   'False
  124.             strikethrough   =   0   'False
  125.          EndProperty
  126.          ForeColor       =   &H80000008&
  127.          Height          =   225
  128.          Index           =   5
  129.          Left            =   240
  130.          TabIndex        =   19
  131.          TabStop         =   0   'False
  132.          Top             =   1980
  133.          Width           =   1800
  134.       End
  135.       Begin VB.OptionButton Option3 
  136.          Appearance      =   0  'Flat
  137.          BackColor       =   &H00C0C0C0&
  138.          Caption         =   "&4 - Right - MIDDLE"
  139.          BeginProperty Font 
  140.             name            =   "MS Sans Serif"
  141.             charset         =   1
  142.             weight          =   400
  143.             size            =   8.25
  144.             underline       =   0   'False
  145.             italic          =   0   'False
  146.             strikethrough   =   0   'False
  147.          EndProperty
  148.          ForeColor       =   &H80000008&
  149.          Height          =   225
  150.          Index           =   4
  151.          Left            =   240
  152.          TabIndex        =   18
  153.          TabStop         =   0   'False
  154.          Top             =   1680
  155.          Width           =   1800
  156.       End
  157.       Begin VB.OptionButton Option3 
  158.          Appearance      =   0  'Flat
  159.          BackColor       =   &H00C0C0C0&
  160.          Caption         =   "&3 - Right - TOP"
  161.          BeginProperty Font 
  162.             name            =   "MS Sans Serif"
  163.             charset         =   1
  164.             weight          =   400
  165.             size            =   8.25
  166.             underline       =   0   'False
  167.             italic          =   0   'False
  168.             strikethrough   =   0   'False
  169.          EndProperty
  170.          ForeColor       =   &H80000008&
  171.          Height          =   225
  172.          Index           =   3
  173.          Left            =   240
  174.          TabIndex        =   17
  175.          TabStop         =   0   'False
  176.          Top             =   1380
  177.          Width           =   1800
  178.       End
  179.       Begin VB.OptionButton Option3 
  180.          Appearance      =   0  'Flat
  181.          BackColor       =   &H00C0C0C0&
  182.          Caption         =   "&2 - Left - BOTTOM"
  183.          BeginProperty Font 
  184.             name            =   "MS Sans Serif"
  185.             charset         =   1
  186.             weight          =   400
  187.             size            =   8.25
  188.             underline       =   0   'False
  189.             italic          =   0   'False
  190.             strikethrough   =   0   'False
  191.          EndProperty
  192.          ForeColor       =   &H80000008&
  193.          Height          =   225
  194.          Index           =   2
  195.          Left            =   240
  196.          TabIndex        =   16
  197.          TabStop         =   0   'False
  198.          Top             =   1080
  199.          Width           =   1800
  200.       End
  201.       Begin VB.OptionButton Option3 
  202.          Appearance      =   0  'Flat
  203.          BackColor       =   &H00C0C0C0&
  204.          Caption         =   "&1 - Left - MIDDLE"
  205.          BeginProperty Font 
  206.             name            =   "MS Sans Serif"
  207.             charset         =   1
  208.             weight          =   400
  209.             size            =   8.25
  210.             underline       =   0   'False
  211.             italic          =   0   'False
  212.             strikethrough   =   0   'False
  213.          EndProperty
  214.          ForeColor       =   &H80000008&
  215.          Height          =   225
  216.          Index           =   1
  217.          Left            =   240
  218.          TabIndex        =   15
  219.          TabStop         =   0   'False
  220.          Top             =   810
  221.          Width           =   1800
  222.       End
  223.       Begin VB.OptionButton Option3 
  224.          Appearance      =   0  'Flat
  225.          BackColor       =   &H00C0C0C0&
  226.          Caption         =   "&0 - Left - TOP"
  227.          BeginProperty Font 
  228.             name            =   "MS Sans Serif"
  229.             charset         =   1
  230.             weight          =   400
  231.             size            =   8.25
  232.             underline       =   0   'False
  233.             italic          =   0   'False
  234.             strikethrough   =   0   'False
  235.          EndProperty
  236.          ForeColor       =   &H80000008&
  237.          Height          =   225
  238.          Index           =   0
  239.          Left            =   240
  240.          TabIndex        =   13
  241.          Top             =   480
  242.          Width           =   1800
  243.       End
  244.    End
  245.    Begin VB.Frame Frame2 
  246.       Appearance      =   0  'Flat
  247.       BackColor       =   &H00C0C0C0&
  248.       Caption         =   "Node autosize"
  249.       BeginProperty Font 
  250.          name            =   "MS Sans Serif"
  251.          charset         =   1
  252.          weight          =   400
  253.          size            =   9.75
  254.          underline       =   -1  'True
  255.          italic          =   0   'False
  256.          strikethrough   =   0   'False
  257.       EndProperty
  258.       ForeColor       =   &H80000008&
  259.       Height          =   1575
  260.       Left            =   150
  261.       TabIndex        =   11
  262.       Top             =   2910
  263.       Width           =   3195
  264.       Begin VB.OptionButton Option2 
  265.          Appearance      =   0  'Flat
  266.          BackColor       =   &H00C0C0C0&
  267.          Caption         =   "None"
  268.          BeginProperty Font 
  269.             name            =   "MS Sans Serif"
  270.             charset         =   1
  271.             weight          =   400
  272.             size            =   9.75
  273.             underline       =   0   'False
  274.             italic          =   0   'False
  275.             strikethrough   =   0   'False
  276.          EndProperty
  277.          ForeColor       =   &H80000008&
  278.          Height          =   315
  279.          Index           =   0
  280.          Left            =   180
  281.          TabIndex        =   12
  282.          Top             =   390
  283.          Width           =   2865
  284.       End
  285.       Begin VB.OptionButton Option2 
  286.          Appearance      =   0  'Flat
  287.          BackColor       =   &H00C0C0C0&
  288.          Caption         =   "Adjust picture size to node"
  289.          BeginProperty Font 
  290.             name            =   "MS Sans Serif"
  291.             charset         =   1
  292.             weight          =   400
  293.             size            =   9.75
  294.             underline       =   0   'False
  295.             italic          =   0   'False
  296.             strikethrough   =   0   'False
  297.          EndProperty
  298.          ForeColor       =   &H80000008&
  299.          Height          =   315
  300.          Index           =   1
  301.          Left            =   180
  302.          TabIndex        =   4
  303.          TabStop         =   0   'False
  304.          Top             =   750
  305.          Width           =   2865
  306.       End
  307.       Begin VB.OptionButton Option2 
  308.          Appearance      =   0  'Flat
  309.          BackColor       =   &H00C0C0C0&
  310.          Caption         =   "Adjust node size to picture"
  311.          BeginProperty Font 
  312.             name            =   "MS Sans Serif"
  313.             charset         =   1
  314.             weight          =   400
  315.             size            =   9.75
  316.             underline       =   0   'False
  317.             italic          =   0   'False
  318.             strikethrough   =   0   'False
  319.          EndProperty
  320.          ForeColor       =   &H80000008&
  321.          Height          =   315
  322.          Index           =   2
  323.          Left            =   180
  324.          TabIndex        =   5
  325.          TabStop         =   0   'False
  326.          Top             =   1110
  327.          Width           =   2865
  328.       End
  329.    End
  330.    Begin VB.Frame Frame1 
  331.       Appearance      =   0  'Flat
  332.       BackColor       =   &H00C0C0C0&
  333.       Caption         =   "Node picture"
  334.       BeginProperty Font 
  335.          name            =   "MS Sans Serif"
  336.          charset         =   1
  337.          weight          =   400
  338.          size            =   9.75
  339.          underline       =   -1  'True
  340.          italic          =   0   'False
  341.          strikethrough   =   0   'False
  342.       EndProperty
  343.       ForeColor       =   &H80000008&
  344.       Height          =   1785
  345.       Left            =   150
  346.       TabIndex        =   6
  347.       Top             =   900
  348.       Width           =   2205
  349.       Begin VB.OptionButton Option1 
  350.          Appearance      =   0  'Flat
  351.          BackColor       =   &H00C0C0C0&
  352.          Caption         =   "Rectangle"
  353.          BeginProperty Font 
  354.             name            =   "MS Sans Serif"
  355.             charset         =   1
  356.             weight          =   400
  357.             size            =   9.75
  358.             underline       =   0   'False
  359.             italic          =   0   'False
  360.             strikethrough   =   0   'False
  361.          EndProperty
  362.          ForeColor       =   &H80000008&
  363.          Height          =   315
  364.          Index           =   0
  365.          Left            =   240
  366.          TabIndex        =   10
  367.          Top             =   360
  368.          Width           =   1365
  369.       End
  370.       Begin VB.OptionButton Option1 
  371.          Appearance      =   0  'Flat
  372.          BackColor       =   &H00C0C0C0&
  373.          Caption         =   "Octogon"
  374.          BeginProperty Font 
  375.             name            =   "MS Sans Serif"
  376.             charset         =   1
  377.             weight          =   400
  378.             size            =   9.75
  379.             underline       =   0   'False
  380.             italic          =   0   'False
  381.             strikethrough   =   0   'False
  382.          EndProperty
  383.          ForeColor       =   &H80000008&
  384.          Height          =   315
  385.          Index           =   1
  386.          Left            =   240
  387.          TabIndex        =   9
  388.          TabStop         =   0   'False
  389.          Top             =   690
  390.          Width           =   1365
  391.       End
  392.       Begin VB.OptionButton Option1 
  393.          Appearance      =   0  'Flat
  394.          BackColor       =   &H00C0C0C0&
  395.          Caption         =   "Diamond"
  396.          BeginProperty Font 
  397.             name            =   "MS Sans Serif"
  398.             charset         =   1
  399.             weight          =   400
  400.             size            =   9.75
  401.             underline       =   0   'False
  402.             italic          =   0   'False
  403.             strikethrough   =   0   'False
  404.          EndProperty
  405.          ForeColor       =   &H80000008&
  406.          Height          =   315
  407.          Index           =   2
  408.          Left            =   240
  409.          TabIndex        =   8
  410.          TabStop         =   0   'False
  411.          Top             =   1020
  412.          Width           =   1365
  413.       End
  414.       Begin VB.OptionButton Option1 
  415.          Appearance      =   0  'Flat
  416.          BackColor       =   &H00C0C0C0&
  417.          Caption         =   "Circle"
  418.          BeginProperty Font 
  419.             name            =   "MS Sans Serif"
  420.             charset         =   1
  421.             weight          =   400
  422.             size            =   9.75
  423.             underline       =   0   'False
  424.             italic          =   0   'False
  425.             strikethrough   =   0   'False
  426.          EndProperty
  427.          ForeColor       =   &H80000008&
  428.          Height          =   315
  429.          Index           =   3
  430.          Left            =   240
  431.          TabIndex        =   7
  432.          TabStop         =   0   'False
  433.          Top             =   1320
  434.          Width           =   1365
  435.       End
  436.    End
  437.    Begin VB.TextBox Text1 
  438.       Appearance      =   0  'Flat
  439.       Height          =   345
  440.       Left            =   1410
  441.       TabIndex        =   0
  442.       Top             =   210
  443.       Width           =   2865
  444.    End
  445.    Begin VB.CommandButton Command1 
  446.       Appearance      =   0  'Flat
  447.       BackColor       =   &H80000005&
  448.       Caption         =   "&Ok"
  449.       Default         =   -1  'True
  450.       Height          =   405
  451.       Left            =   5040
  452.       TabIndex        =   1
  453.       Top             =   210
  454.       Width           =   955
  455.    End
  456.    Begin VB.CommandButton Command2 
  457.       Appearance      =   0  'Flat
  458.       BackColor       =   &H80000005&
  459.       Caption         =   "&Cancel"
  460.       Height          =   405
  461.       Left            =   5040
  462.       TabIndex        =   2
  463.       Top             =   630
  464.       Width           =   955
  465.    End
  466.    Begin VB.Label Label1 
  467.       Appearance      =   0  'Flat
  468.       BackColor       =   &H00C0C0C0&
  469.       Caption         =   "Node text:"
  470.       BeginProperty Font 
  471.          name            =   "MS Sans Serif"
  472.          charset         =   1
  473.          weight          =   400
  474.          size            =   9.75
  475.          underline       =   -1  'True
  476.          italic          =   0   'False
  477.          strikethrough   =   0   'False
  478.       EndProperty
  479.       ForeColor       =   &H80000008&
  480.       Height          =   285
  481.       Left            =   210
  482.       TabIndex        =   3
  483.       Top             =   270
  484.       Width           =   1095
  485.    End
  486. End
  487. Attribute VB_Name = "frmLegend"
  488. Attribute VB_Creatable = False
  489. Attribute VB_Exposed = False
  490.  
  491. Private Sub Command1_Click()
  492.   Legend = Text1.Text
  493.   Ok = True
  494.   Unload Me
  495. End Sub
  496.  
  497. Private Sub Command2_Click()
  498.   Unload Me
  499.   Ok = False
  500. End Sub
  501.  
  502. Private Sub Form_Load()
  503.   Text1.Text = Legend
  504.   option1(Picnum).Value = True
  505.   option2(AutoSize).Value = True
  506.   option3(AlignMent).Value = True
  507. End Sub
  508.  
  509. Private Sub Option1_Click(Index As Integer)
  510.   Picnum = Index
  511. End Sub
  512.  
  513. Private Sub Option2_Click(Index As Integer)
  514.   AutoSize = Index
  515. End Sub
  516.  
  517. Private Sub Option3_Click(Index As Integer)
  518.   AlignMent = Index
  519. End Sub
  520.  
  521.